home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / disk & file tools / catchdisk / english / install < prev    next >
Text File  |  1996-04-07  |  2KB  |  111 lines
  1. ; Installation program for the Commodore's Installer utility
  2.  
  3. (set local-help (cat "If you choose \"Yes\" you can have CatchDisk send its"
  4.                      " messages in italian.\nIf you choose \"No\", CatchDisk will"
  5.                      " only run in english.\nNote that if your system language"
  6.                      " is not set to 'italiano' you will still see all the "
  7.                      "messages in english"))
  8.  
  9. (complete 0)
  10.  
  11. (if (exists "L:WBStart-Handler")
  12.     ((set ver (/ (getversion "L:WBStart-Handler") 65536))
  13.      (set rev (- (getversion "L:WBStart-Handler") (* 65536 ver)))
  14.      (if (< ver 2)
  15.          (if (< rev 4)
  16.              (message (cat "Warning: you must install WBStart-Handler "
  17.                         "version 1.4 or later to be able to use "
  18.                         "CatchDisk (see the 'Readme' file).")
  19.              )
  20.          )
  21.      )
  22.     )
  23.     (message (cat "Warning: you must install WBStart-Handler "
  24.                   "version 1.4 or later to be able to use "
  25.                   "CatchDisk (see the 'Readme' file).")
  26.     )
  27. )
  28.  
  29. (set name
  30.     (askdir
  31.         (prompt "Where do you want to install CatchDisk ?")
  32.         (help @askdir-help)
  33.         (default "SYS:WBStartup")
  34.     )
  35. )
  36.  
  37. (set @default-dest name)
  38.  
  39. (if (exists (tackon name "CatchDisk.info"))
  40.     (message (cat "Warning: tooltypes from the old version will be "
  41.                 "lost: remember to save them before you proceed.")
  42.     )
  43. )
  44.  
  45. (set vernum (/ (getversion) 65536))   ; se version >37: c'è localizzazione
  46.  
  47. (if (> vernum 37)
  48.     (set local
  49.         (askbool
  50.             (prompt "Do you want to install the support file for the italian language ?")
  51.             (help local-help)
  52.             (default 0)
  53.         )
  54.     )
  55.     (set local 0)
  56. )
  57.  
  58. (if local
  59.     (if (and (= @user-level 2) (exists "LOCALE:catalogs/italiano"))
  60.         (set sysdest
  61.             (askchoice
  62.                 (prompt "Where do you want to install the localization file ?")
  63.                 (help @askchoice-help)
  64.                 (choices "in the same drawer as CatchDisk" "in LOCALE:")
  65.                 (default 1)
  66.             )
  67.         )
  68.         (if (= name "SYS:WBStartup")
  69.             (set sysdest 1)
  70.             (set sysdest 0)
  71.         )
  72.     )
  73. )
  74.  
  75. (if (not (exists "LOCALE:catalogs/italiano"))
  76.     (set sysdest 0)
  77. )
  78.  
  79. (complete 50)
  80.  
  81. (copyfiles
  82.     (infos)
  83.     (source "/CatchDisk")
  84.     (dest name)
  85. )
  86.  
  87. (tooltype
  88.     (dest (tackon name "CatchDisk"))
  89.     (noposition)
  90. )
  91.  
  92. (complete 80)
  93.  
  94. (if local
  95.      (if sysdest
  96.         (copyfiles
  97.             (source "/catalogs/italiano/CatchDisk.catalog")
  98.             (dest "LOCALE:catalogs/italiano")
  99.         )
  100.         (
  101.             (makedir (tackon name "catalogs"))
  102.             (copyfiles
  103.                 (source "/catalogs/italiano/CatchDisk.catalog")
  104.                 (dest (tackon name "catalogs/italiano"))
  105.             )
  106.         )
  107.     )
  108. )
  109.  
  110. (complete 100)
  111.